home *** CD-ROM | disk | FTP | other *** search
/ Talisman BBS - Support Disks / Talisman bbs - Novaterm 9.3.D64 / prog menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  1006 b   |  34 lines
  1. 5 poke45,peek(174):poke46,peek(175):clr
  2. 10 dv=peek(186):ifdv<8ordv>15thendv=8
  3. 20 open15,dv,15:ml=38400:sl=52608:dn$=""
  4. 30 print"[147] [211]elect program:":open1,dv,0,"$:nova.*":get#1,a$,a$:sysml+54:mx=0
  5. 40 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"then80
  6. 50 f$="":mx=mx+1:fori=12to22:a$=mid$(z$,i,1):ifa$=chr$(34)theni=22:goto70
  7. 60 f$(mx)=f$(mx)+a$
  8. 70 next:print" "f$(mx)"[160]":goto40
  9. 80 close1:print" [210]eturn to [206]ovaterm[160]":mx=mx+2
  10. 90 p=1:gosub130:ifp=mxthen110
  11. 101 print" [204]oading nova."f$(p)
  12. 102 open2,dv,0,"nova."+f$(p):input#15,e:close2:ife>19then30
  13. 105 load"nova."+f$(p),dv
  14. 110 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  15. 115 print" [204]oading [206]ovaterm..."
  16. 120 poke787,dv:clr:load"novaterm ?.?*",peek(787)
  17. 130 gosub290:syssl+3:ifpeek(780)then190
  18. 140 sysml+18
  19. 150 geta$:ifa$=""then150
  20. 160 a=asc(a$)and127:ifa=13then280
  21. 170 ifa=17ora=19thensysml+18
  22. 180 ifa$="[133]"thenqq=mx:goto260
  23. 190 ifa$=""thenp=p+1:ifp>mxthenp=1
  24. 200 ifa$="[145]"thenp=p-1:ifp<1thenp=mx
  25. 210 ifa$=""thenp=1
  26. 220 ifa=17ora=19thengoto130
  27. 230 if(a<49ora>57)and(a<65ora>mx+55)then150
  28. 240 qq=a-48+(a>64)*7:ifqq>mxthen150
  29. 250 syssl+3:ifpeek(780)thenqq=qq+1
  30. 260 ifqq=pthen280
  31. 270 sysml+18:p=qq:gosub290:sysml+18
  32. 280 print""left$(dn$,mx+3):return
  33. 290 print""left$(dn$,p+1):return
  34.